lappend auto_path "../"
package require GlobalPathName 1.0

# 使用命名空间的好处是区分全局范围，即在其他地方调用本文件的部分函数。
namespace eval GUI {
  namespace export DoorSystemAnalysisGUI
}
proc GUI::DoorSystemAnalysisGUI {} {
  global topWindow notebookWindow1 nastranWindow abaqusWindow
  toplevel $topWindow
  ttk::notebook $notebookWindow1 -width 400 -height 800 -padding 10
  $notebookWindow1 add [frame $nastranWindow] -text "  Nastran  "
  $notebookWindow1 add [frame $abaqusWindow] -text "  Abaqus  "
  $notebookWindow1 select $nastranWindow
  grid $notebookWindow1 -row 0 -column 0 -rowspan 2
  # 遍历顶层笔记本窗口，以便设置笔记本窗口下的选定哪个选项卡。如使用 Control-Tab为选择当前选定的选项卡之后的选项卡
  # ttk::notebook::enableTraversal .nb
}
# DoorSystemAnalysisGUI

# 打包操作
package provide DoorSystemAnalysisGUI 1.0
